10 DIMX$(30):POKE53280,5:POKE53281,9:PRINT"[147]":GOSUB1490:GOTO30
20 POKE198,0:WAIT198,1:POKE198,0:RETURN
30 PRINT" BEETPLAN LADEN ? ";
40 GETBP$:IFBP$<>"J"ANDBP$<>"N"ANDBP$<>"X"THEN40
50 PRINTBP$
60 IFBP$="X"THENEND
70 IFBP$="N"THEN90
80 GOSUB800:GOTO130
90 A$="":INPUT"WIE VIELE BEETE ";A$:A=VAL(A$):IFA=0THENEND
100 IFA<2ORA>13THENPRINT"2-13 BEETE!";:GOSUB20:PRINT"[145]":PRINT"               ":PRINT"":GOTO30
110 B=INT(39/A)
120 B$="":INPUT"HALB-BEETE   N[157][157][157]";B$:IFB$=""THENEND
130 PRINT"[147]":POKE53265,11
140 PRINT"[176]";:FORR=1TOA-1:FORT=1TOB-1:PRINT"[195]";:NEXT:PRINT"[178]";:NEXT
150 FORU=1TOB-1:PRINT"[195]";:NEXT:PRINT"[174]";
160 IFA<13THENPRINT
170 IFB$="J"THENFORX=1TO6:GOTO190
180 FORX=1TO13
190 PRINT"[194]";:FORR=1TOA-1:FORT=1TOB-1:PRINT" ";:NEXT:PRINT"[194]";:NEXT
200 FORU=1TOB-1:PRINT" ";:NEXT:PRINT"[194]";
210 IFA<13THENPRINT
220 NEXT:IFDO=1THENDO=0:GOTO280
230 IFB$="N"THEN280
240 PRINT"[171]";:FORR=1TOA-1:FORT=1TOB-1:PRINT"[195]";:NEXT:PRINT"[219]";:NEXT
250 FORU=1TOB-1:PRINT"[195]";:NEXT:PRINT"[179]";
260 IFA<13THENPRINT
270 FORX=1TO6:DO=1:GOTO190
280 PRINT"[173]";:FORR=1TOA-1:FORT=1TOB-1:PRINT"[195]";:NEXT:PRINT"[177]";:NEXT
290 FORU=1TOB-1:PRINT"[195]";:NEXT:PRINT"[189]";
300 PRINT""
310 FORQ=1TOA:FORW=1TOB-1:PRINT"";:NEXT
320 IFQ<10THENPRINTRIGHT$(STR$(Q),1);:GOTO340
330 PRINT"[157]"RIGHT$(STR$(Q),2);
340 NEXT
350 IFB$="N"THEN400
360 A1=A*2:PRINT"":FORQ=A+1TOA1:FORW=1TOB-1:PRINT"";:NEXT
370 IFQ<10THENPRINTRIGHT$(STR$(Q),1);:GOTO390
380 PRINT"[157]"RIGHT$(STR$(Q),2);
390 NEXT
400 POKE53265,27:IFB$="N"THENPRINT""
410 PRINT"":IFA1<>0THENY=A1:GOTO430
420 Y=A
430 IFLA=0THEN500
440 GOSUB20:PRINT"[147]";:GOTO580
450 PRINT"[158]BEPFLANZUNG AENDERN ?"
460 GETBA$:IFBA$<>"J"ANDBA$<>"N"THEN460
470 IFBA$="N"THENIFLB=1THEN630
480 IFBA$="N"THEN750
490 GOTO1250
500 FORE=1TOY
510 PRINT"[145]                                       "
520 PRINT"[145]BEET"E;:INPUT" = ART ";X$(E)
530 IFX$(E)=""THEN510
540 IFX$(E)="X"THENEND
550 IFX$(E)="LP"THENPRINT"[145][158]     LEER-PLAN DRUCKEN !    ":GOTO1360
560 IFLEN(X$(E))<3THENI=VAL(X$(E)):IFI<=YTHENIFI<ETHENX$(E)=X$(I)
570 NEXT:PRINT"[147]";
580 FORO=1TOY:IFO<10THENPRINT" "O"  "X$(O):GOTO610
590 PRINTO"  "X$(O)
600 IFO/23=INT(O/23)THENGOSUB20
610 NEXT:IFLA=1THEN450
620 GOSUB20
630 PRINT"[147][158]BEETPLAN SPEICHERN ? ";
640 GETSP$:IFSP$<>"J"ANDSP$<>"N"THEN640
650 PRINTSP$
660 IFSP$="N"THEN750
670 KJ$="":INPUT"      [153]KALENDERJAHR ";KJ$:IFKJ$=""THEN750
680 DI$="BEETPLAN."+KJ$
690 OPEN15,8,15,"S:"+DI$:CLOSE15
700 OPEN2,8,2,DI$+",S,W"
710 PRINT#2,A
720 PRINT#2,B$
730 FORT=1TOY:PRINT#2,X$(T):NEXT
740 CLOSE2
750 PRINT"[147] [155]BEETPLAN DRUCKEN ? ";
760 GETBD$:IFBD$<>"J"ANDBD$<>"N"THEN760
770 PRINTBD$
780 IFBD$="N"THEN1320
790 PRINT"[150] DRUCKER EINSCHALTEN ! ":GOSUB20:GOTO900
800 KJ$="":INPUT"   [153]KALENDERJAHR ";KJ$:IFKJ$=""THENEND
810 DI$="BEETPLAN."+KJ$
820 OPEN2,8,2,DI$+",S,R"
830 INPUT#2,A
840 INPUT#2,B$
850 Y=1
860 INPUT#2,X$(Y)
870 IFST<>64THENY=Y+1:GOTO860
880 CLOSE2
890 B=INT(39/A):LA=1:RETURN
900 FORT=1TOY
910 IFLEN(X$(T))<21THENX$(T)=X$(T)+" ":GOTO910
920 IFLEN(X$(T))>21THENX$(T)=LEFT$(X$(T),21)
930 NEXT
940 B=INT(78/A):B1=INT(B/2):B2=((B-2)-B1)
950 OPEN4,4,0
960 PRINT#4,"[176]";:FORR=1TOA-1:FORT=1TOB-1:PRINT#4,"[195]";:NEXT:PRINT#4,"[178]";:NEXT
970 FORU=1TOB-1:PRINT#4,"[195]";:NEXT:PRINT#4,"[174]"
980 FORX=1TO21
990 PRINT#4,"[194]";:FORR=1TOA-1:FORT=1TOB1:PRINT#4," ";:NEXTT
1000 PRINT#4,MID$(X$(R),X,1);
1010 FORT=1TOB2:PRINT#4," ";:NEXTT:PRINT#4,"[194]";:NEXTR
1020 FORU=1TOB1:PRINT#4," ";:NEXTU:PRINT#4,MID$(X$(R),X,1);
1030 FORU=1TOB2:PRINT#4," ";:NEXTU:PRINT#4,"[194]"
1040 NEXTX
1050 IFB$="N"THENGOSUB1230:GOSUB1160:GOTO1150
1060 PRINT#4,"[171]";:FORR=1TOA-1:FORT=1TOB-1:PRINT#4,"[195]";:NEXT:PRINT#4,"[219]";:NEXT
1070 FORU=1TOB-1:PRINT#4,"[195]";:NEXT:PRINT#4,"[179]"
1080 FORX=1TO21
1090 PRINT#4,"[194]";:FORR=1TOA-1:FORT=1TOB1:PRINT#4," ";:NEXTT
1100 PRINT#4,MID$(X$(R+A),X,1);
1110 FORT=1TOB2:PRINT#4," ";:NEXTT:PRINT#4,"[194]";:NEXTR
1120 FORU=1TOB1:PRINT#4," ";:NEXTU:PRINT#4,MID$(X$(R+A),X,1);
1130 FORU=1TOB2:PRINT#4," ";:NEXTU:PRINT#4,"[194]"
1140 NEXTX
1150 GOTO1200
1160 FORX=1TO21
1170 PRINT#4,"[194]";:FORR=1TOA-1:FORT=1TOB-1:PRINT#4," ";:NEXT:PRINT#4,"[194]";:NEXT
1180 FORU=1TOB-1:PRINT#4," ";:NEXT:PRINT#4,"[194]"
1190 NEXT:RETURN
1200 PRINT#4,"[173]";:FORR=1TOA-1:FORT=1TOB-1:PRINT#4,"[195]";:NEXT:PRINT#4,"[177]";:NEXT
1210 FORU=1TOB-1:PRINT#4,"[195]";:NEXT:PRINT#4,"[189]"
1220 PRINT#4:CLOSE4:GOTO1320
1230 PRINT#4,"[194]";:FORR=1TOA:FORT=1TOB-1:PRINT#4," ";:NEXT:PRINT#4,"[194]";:NEXT
1240 RETURN
1250 PRINT"[145]";:WB$="":INPUT"[159]WELCHES BEET         [157][157][157][157][157][157][157][157]";WB$:IFWB$=""THEN1310
1260 WB=VAL(WB$):IFWB<1ORWB>YTHEN1250
1270 PRINT""TAB(15)X$(WB)"[145][145]"
1280 NA$="":INPUT"    NEUE ART ";NA$:IFNA$=""THEN1300
1290 X$(WB)=NA$:LB=1
1300 PRINT"[145][145][145]":GOTO1250
1310 PRINT"[147]";:GOTO580
1320 PRINT"[153]LEER-PLAN DRUCKEN ? ";
1330 GETLD$:IFLD$<>"J"ANDLD$<>"N"THEN1330
1340 PRINTLD$
1350 IFLD$="N"THENEND
1360 PRINT"[150] DRUCKER EINSCHALTEN ! ":GOSUB20
1370 B=INT(78/A):OPEN4,4,0
1380 PRINT#4,"[176]";:FORR=1TOA-1:FORT=1TOB-1:PRINT#4,"[195]";:NEXT:PRINT#4,"[178]";:NEXT
1390 FORU=1TOB-1:PRINT#4,"[195]";:NEXT:PRINT#4,"[174]"
1400 FORX=1TO21
1410 PRINT#4,"[194]";:FORR=1TOA-1:FORT=1TOB-1:PRINT#4," ";:NEXT:PRINT#4,"[194]";:NEXT
1420 FORU=1TOB-1:PRINT#4," ";:NEXT:PRINT#4,"[194]":NEXT:IFWI=1THEN1460
1430 IFB$="N"THENGOSUB1230:WI=1:GOTO1400
1440 PRINT#4,"[171]";:FORR=1TOA-1:FORT=1TOB-1:PRINT#4,"[195]";:NEXT:PRINT#4,"[219]";:NEXT
1450 FORU=1TOB-1:PRINT#4,"[195]";:NEXT:PRINT#4,"[179]":WI=1:GOTO1400
1460 PRINT#4,"[173]";:FORR=1TOA-1:FORT=1TOB-1:PRINT#4,"[195]";:NEXT:PRINT#4,"[177]";:NEXT
1470 FORU=1TOB-1:PRINT#4,"[195]";:NEXT:PRINT#4,"[189]"
1480 PRINT#4:CLOSE4:END
1490 PRINT""TAB(10)"[213][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][201]"
1495 PRINTTAB(10)"[194]                 [194]"
1500 PRINTTAB(10)"[194] B E E T P L A N [194]"
1505 PRINTTAB(10)"[194]                 [194]"
1510 PRINTTAB(10)"[202][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][203]"
1520 PRINT""TAB(7)"[153](W)  BY TIGERCREW IN 2004"
1530 GOSUB20:PRINT"[147]":RETURN